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* It is a cell value not {nzjaTized. If the table Includes the simulator logic is not generated and associated to 
any variables. 
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tASCV) 
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ENCLOSURE PAGE A1 
REPORT FILE EXECUTING TEST 



proc Main { Is-r } { 
global Error 

global Name 
global codResultl 
global codResult2 
global Step 
global ProgrAcq 

global ListDevsd 
global ListDevc 
global CompleteLlstCdb 

global FlgRr 

set Is [string length $Istr] 

set FlgOpz [spring first *^_OPZ" $Istr3 

if { $Flg0p2 > 0 } { 
set Id lexpr $ls - 51 
} else { 

set Id (expr $ls - 2) 
) 

set IstrNoOpz [string range $Istr 0 $ld] 



# Reading the name starting pto 

set Pto [ Read CFG CTDC 0 1ST $ IstrNoOpz PTO ] 

# Reading the name of ending point of the routing 
set Ptf (Read CFG CTDC 0 1ST $ IstrNoOpz PTF ] 

# Reading the name of S3 of the starting point of the routing 
set Sbo (Read CFG CTDC 0 1ST $IstrNoOpz SBO ] 

# Reading the name of SB of the ending point of the routing 
set Sbf [Read CFG CTDC 0 1ST $IstrNoOpz SBF ] 

# Reading if the starting point of the rout, requires the cdb occupation 

# (^existing of ^train presence on cdb' ) 

set LibPto [Read CFG CTDC 0 PTM $Pto CLEARItIG ] 

i Reading the simple switch blocks of the routing 
set ListDevs (Read CFG CTDC 0 1ST $Istr DEVS ALL ] 

# Reading the switch blocks for communicating the routing 
set ListDevc (Read CFG CTDC 0 1ST $Istr DEVC ALL ) 

# Reading buffer stops 

set ListSfc (Read CFG CTDC 0 1ST $Istr SFC ALL J 

# Creating list of cdb to be covered to execute the train transit 
set CoznpleteCdbList [ CreateCompleteCdbList $Istr ] 



# 
# 

» 
» 



READING DATA BASE ROUTING 



# 

# 
# 



set Area [ GetArealstr $Pto ] 
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ENCLOSURE PAGE A2 
REPORT FILE EXECUTING TEST 

set DataEqu C ReadCFG CTDC C ASCV $Acea DATA_ 
set DataTdc [ ReadCFG CTDC 0 ASCV $Area OATa' 

i£ { [ llenght SDataEq-a 3 > 0 } { 

Message2 "Da-a Equations : SDazaEqu" 

if { { llenght S DataTdc ) > G } { 
Message2 "Data tdc : ^DaraTdc" 
Message2 *• « . 

} 

« 4 

« « 
» STEP 1 ft 

# # 

« « 

#ft# Blocking switch points in opposite position than the TDC 
ft 

Message " Blocking switch points in clashing position than rhe TDC " 

# Command levers in clashing position 
Posit ionClashingList $lstr SListDevs DEVS 
9 Command levers in clashing position 
PositionClashingList $Istr $ListDevc DEVC 

# Command in clashing position 

# PositionClashingList $lsi:r $ListSfc SFC 
# 



set ProgrAcq 1 
set FlgRr "F" 

### Checking if switch points are at state : clashing FREE CONTROL 

Message ''Check switch points in state < clashing FREE CONTROL >" 
I Checking clashing position 

CheckPositionClashingList $Istr $ListDevs DEVS FREE CONTROL 
Check Posit ionClashingList $Istr $ListDevc DEVC FREE CONTROL 
♦CheckPositionClashingList $l3tr $ListSfc SFC FREE CONTROL 
I 

««# 

Message "Commanding Routing $Istr" 
if { SFlgOpz > 0 } { 

Command TF 0 1ST $IstrNoOpz COMMAND 0P2 
} else { 

Cdrmand TF 0 1ST $IstrNo0pz COMMAND 

} 

9 Check current state of the routing. 

set Name $Istr 

set codResultl "1" 

set codResult2 "2" 

set Step 1 

set ProgrAcq 1 

set FlgRr "T" 

CheckStatelstr REST TRUE RECORDED FALSE $PtO $Pt£ 

« Getting the name of the last switch point of the routing 
set ListDevIstr [ concat $ListDevs $ListDevc 5ListSfc 1 

set NameLastOev ; lindex SListDevistr I e«pr Ulsnght $ListDevl3t£5 - Ij J 

### Loop for all the switch points 

set Step 2 
set ProgrAcq 0 

if { [ llength SListDevs ] > 0 ) { 
foreach NameDev $ListDevs { 

# Commanding switch point in central position (AUTOMATIC) 
Message "Commanding switch point $NameDev in AUTOMATIC position" 
Command TF 0 DEV $NaineDev AUTOMATIC 

Message "Conananding Routing $Istr" 
if { $Flg0p2 > 0 } { 

Command TF 0 1ST SlstrNoOpz COMMAND 0P2 
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ENCLOSURE PAGE A3 
REPORT FILE EXECUTING TEST 

) else { 

Connnand TF 0 IST $IstrHoOoz COMMAND 

} 

set ProgrAcq lexpr $?rogrAcq + 1 ) 

set ProgrAcq lexpr $ ProgrAcq + 1 ) 
Message "Checking routing state" 
# Check current routing state 
» Controlling if it is the las^ one 
if { SNameDev SNaineLastDev } { 
set codResulti "3" 

Chec«StrState Po"bLOCKED TRUE RECOREDED TRUE $PtO SPtf 

} else { 

set codResulti "1" 

ChecklStrStite REST TRUE RECOREDED FALSE $Pto $Ptf 

set tinpOev 

if { ( llength $ListOevs ) > 0 } { 

foceach NameDev $ListDevc { 

if { $tiBp3ev = $NameDev } { 

» commanding switch point in central position (AUTOMATIC) 
Message "Coiinanding switch point $NameDev in AUTOMATIC position 
Command T? 0 DEV $NameOev AUTOMATIC 

Message "Conmanding Routing SIstr" 

if { $FlgOpz > 0 } { 

Command TF 0 IST $IstrNoOp2 COMMAND OPZ 

} else { 

Command TF 0 IST SistrNoOpz COMMAND 

set ProgrAcq Jexpr SFrogrAcq + 1 1 

if {SNameDev == $NameLastDev } { or^/^vpn rnM-rnnT. > " 

Messaae "Checking if the switch is in position < concordant BLOCI^D CONTROL > 
Checklwic^hPOii^ltate $I3tr DEVC $NameDev CONCORDANT BLOCKED CONTROL 

^ 'we" age "Checking if the switch is in position < ^<>-^2-ee"!,][?fS,^^^^^ ^ " 
ChecklwitchPointltate SIstr DEVC SNameDev CONCORDANT FREE CONTROL 

} 

set ProgrAcq (expr $ProgrAcq + ^ ] 
Message "Checking routing state" 
# Check current routing state 
F Controlling if it is the last one 
if { $KameDev «= SNameLas -Dev } { 
set codResulti '"3" 

set codResult2 "4" cat-n 
ChecklstrState PO^BLOCKSD TRUE RECOREDED TRUE SPto $Ptf 

} else { 

set codResulti "1" 

set codResult2 "2" ^ * 

ChecklstrState REST TRUE RECOREDED FALSE SPto SPtf 

) 

set tmoDev $NameDev 

)' 

set codResulti "10" 

set ProgrAcq lexpr $ProgrAcq + 1 ) 
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REPORT FILE EXECUTING TEST 

### Checking low signal state starting pomi: 

Message" Checking low signal state starting point 

if { [ check OAS 0 SB $Sbo FREEROUTE TRUE 3 0]== "TRUE" } { 

Message " CHECK OK : The low signal $Sbo is FREE TRANSIT' 

PrintRealRisults $Name $Sbo $cociResultl $Step $ProgrAcq 

) else { 

tessag^" CHECK failed " : The low state $Sbo is not ETIEE TRANSIT" 
if { $FlgRr -= "T" } { 
set ECodResulc "E" 

append ECodResult $codResultl , 
PrintRealRisults $Naroe $Sbo $codResult $Step $ProgrAcq 



} 



# « 

» t 

# STB? 2 * 

# « 



